home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_40.arc / DAIMS.ARC / OCEAN.HXX < prev    next >
Encoding:
Text File  |  1988-02-10  |  1.1 KB  |  41 lines
  1. /* 
  2. -*++ class ocean_layer: 
  3. ** 
  4. ** (*++ history: 
  5. **     12 Jan 88    Bruce Eckel    Creation date
  6. ** ++*)
  7. ** 
  8. ** (*++ detailed: 
  9. ** ++*)
  10. */
  11.  
  12. class Cheb_vector;
  13. class vi_matrix;
  14. class ekman_layer;
  15. class ocpanel;
  16.  
  17. class ocean_layer {
  18.     Cheb_vector Qnew, Qold, h;
  19.     double dt;
  20.     vi_matrix A;
  21.     double ocean_lambda;
  22.     double ocean_xldomain, ocean_xrdomain;
  23.     double ocean_viscosity_value;
  24.     visc_type ocean_viscosity_type;
  25.     int ocean_nmodes;
  26.     int nstep;
  27.     double time;
  28.     int running;
  29.   public:
  30.     ocean_layer(int initial_modes = 32, double initial_lambda = 100);
  31.     double lambda() { return ocean_lambda;}
  32.     double xldomain() { return ocean_xldomain;}
  33.     double xrdomain() { return ocean_xrdomain;}
  34.     double viscosity_value() { return ocean_viscosity_value; }
  35.     visc_type viscosity_type() { return ocean_viscosity_type; }
  36.     int nmodes() { return ocean_nmodes; }
  37.     void step(ekman_layer & ekman);
  38.     void update(ocpanel & ocean_panel, ekman_layer & ekman);
  39.     void diagnostics(ocpanel & ocean_panel);
  40. };
  41.